00010 



XLIST 
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00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 



EXTERNAL BUFCLC . ERROR, lOSETC, lOIERR , BUFCLR 
EXTERNAL SETBYT , UI NTQ , WA I Tl , WSYNC, ADRCK 
EXTERNAL UX IT , USRJOA , JOBJDA , I LLMOD, PUUOAC, P lOMOD 
EXTERNAL JOB. ASSIN, PJOBN, ADRERR, USRREL, CUX ITl , CUX I T2 
EXTERNAL SETIOS 

FOR PURPOSES OF COMMENTING THIS SUBROUTINE THE 
TERM BUFFER HEADER SHALL REFER TO THE 3 WORD HEADER 
WHICH IS USED BY THE USER PROGRAM AND THIS EXEC FOR 
REFERING TO THE RING BUFFERS. 

THE CONTENTS OF THE 3 WORD HEADER (AS SET BY THE MONITOR FOR THE USE 

FROM USERS PROGRAM BY AN INPUT OR AN OUTPUT UUO 
BIT 18-35=ADDRESS OF SECOND WORD OF THE 
CURRENT BUFFER IN RING. 

WORD 2: BYTE POINTER TO CURRENT ITEM. 

WORD 3: POSITIVE ITEM COUNT (NO. OF ITEMS LEFT ON 
INPUT, NO. OF FREE ITEMS TO GO ON OUTPUT). 

EACH BUFFER IN THE RING HAS FOLLOWING FORMAT (AS THE USER SEES IT) 



WORD i: 
WORD 2: 



WORD 3: 



RESERVED FOR BLOCK NUMBER FOR FIXED ADDRESS DEVIC 
BIT 0=USE BIT FOR THIS BUFFER 

BIT 1-17=N0. OF WORDS WHICH FOLLOW (LENGTH OF iUF 
BIT 18-35=ADDRESS OF SECOND WORD OF NEXT BUFFER I 
LH=LINK TO NEXT BLOCK (SET BY MONITOR FOR DECTAPE 
RHsNO. OF WORDS OF DATA WHICH FOLLOW (USUALLY 
SET BY EXEC EXCEPT IF THE USER HAS SPECIFIED 
THAT HE WANTS TO COMPUTE WORD COUNT 
HIMSELF INSTEAD OF HAVING THE MONITOR DO IT 
USING THE BYTE POINTER IN THE 3 WORD HEADER). 
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00370 

00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 



H. R. 
CALLI 



THIS 
OUTPU 
THE I 
ITEM 
TERMI 
ACCEP 
IN TH 
ING R 
MONIT 



MORSE 
NG SEQUENCE 
CLOSE D. 
EXIT 
ROUTINES PR 
T ROUTINE SH 
NPUT BUFFER 
COUNTS OF BO 
NATE THE USE 
T ANOTHER IN 
E CASE OF OU 
OUTINE IS CA 
OR INTERFACE 
storage: 
ROUTINES 
SYMBOLS 
ACCU 



2/21/65 



ALWAYS RETURNS HERE 
OCESSES THE CLOSE UUO AND DETERMINES WHETHER THE 
OULD BE CALLED IF OUTPUT WERE ACTIVE, CLEARS 
AREA IF INPUT WERE ACTIVE, AND CLEARS THE 
TH INPUT AND OUTPUT HEADERS SERVING TO BOTH 

OF THE DEVICE AND SET THE I/O ROUTINES TO 
PUT OR OUTPUT COMMAND IN A CLEAR STATE. 
TPUT DEVICES, THE CLOSE ROUTINE OF THE DEVICE HANDL 
LLED IN CASE ANY SPECIAL HANDLING IS REQUIRED. 



30 
CALLED! 
set/used: 
MULATORS: 



DCL, WAITl, UXIT 



DEVICE DATA BLOCK: 



10 STATUS word: 



JOB BUFFER AREA: 



DAT S/U 

DEVDAT U 

IDS S/U 

POP U 

DEVBUF U 

DEVIOS S/U 

DEVSER U 

lOACT S 

lOBEG S 

lOBKTL S 

lODEND S 

lODERR S 

lODISC S 

lOUSE S 

JBFCTR S 



PROG U 
TAG S/U 
TACl S/U 



lODTER 

lOEND 

lOFST 

lOIMPM 

lOSTRT 

lOW 



S 
S 
S 
S 
S 
S 
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00690 








00700 








00710 


000000 


663300 


002000 


00720 


000001 


254000 


000000 


00730 


000002 


135040 


000000 


00740 


000003 


502301 


000000 


00750 


000004 


261140 


000005 


00760 


000005 


135040 


000000 


00770 


000006 


305040 


000016 


00780 


000007 


254000 


000013' 


00790 


000010 


200046 


000003 


00600 


000011 


260141 


000001 


00810 


000012 


254000 


000065^' 


00820 


000013 


260140 


000000 


00830 


000014 


606600 


000002 


00840 


000015 


607300 


200000 


00850 


000016 


254000 


000041 • 


00860 


000017 


550106 


000006 


00870 


000020 


505100 


000007 


00880 


000021 


550260 


000002 


00890 


000022 


540120 


000002 


00900 


000023 


515040 


400000 


00910 


000024 


322240 


000034' 


00920 


000025 


505240 


000007 


00930 


000026 


540260 


000005 


00940 
00950 


000027 


260140 


000000 




000030 


550040 


000005 




000031 


412060 


000005 


00960 


000032 


312100 


000005 


00970 


000033 


254000 


000026' 


00980 


000034 


505240 


000007 


00990 


000035 


540246 


000006 


01000 


000036 


436060 


000005 


01010 


000037 


271240 


00000? 


01020 


000040 


402020 


000005 


01030 


000041 


606600 


000001 


01040 


000042 


607300 


100000 


01050 


000043 


254000 


000060' 


01060 


000044 


544246 


000006 


01070 


000045 


505240 


000007 


01080 


000046 


337020 


000005 


01090 


000047 


254000 


000060 ' 


01100 


000050 


200046 


000003 


01110 


000051 


260141 


000001 


01120 


000052 


544246 


000006 


01130 


000053 


505240 


000007 


01140 


000054 


515040 


400000 


01150 


000055 


436060 


000005 


01160 


000056 


271240 


000002 


01170 


000057 


402020 


000005 


01180 


000060 


260140 


000013' 


01190 


000061 


262140 


000005 


01200 


000062 


630000 


000473' 


01210 


000063 


661000 


000002 


01220 


000064 


202006 


000002 


01230 



INTERNAL CLOSEl 



CLOSEi: TLOE DEVDAT.CLOSB 

JRST UXIT 

LDB TACPUUOAC 5USER 

HLLM DEVDAT,USRJDA(TAC) 

PUSH PDP»DAT 

LDB TAC.PIOMOD 

CAIGE TAG, OR 

JRST UCLS4 

MOVE TAC,DEVSER(DEVOAT) 

PUSHJ PDP.DCLCTAC) 

JRST UCLS3 
UCLS4: PUSHJ PDP.WAITU 

TRNN UUCCLSIN 

TLNN DEVDAT.IBUFB 

JRST UCLS2 

HRRZ TAC1,DEVBUF(DEVDAT) 

HRLI TACl.PROG 

HRR2 DAT,»TAC1 

HRR TACl,e>TACl 



;HAS a CLOSE ALREADY BEEN DONE? 
JYES, FOR THIS CHANNEL 

DEVICE CHANNEL NO. 



WAIT UNTIL DEVICE IS INACTIVE. 

;SUPPRESS INPUT? 

;N0, WAS INPUT BUFFER SPECIFIED? 

;no 



UCLS0 



HRLZI TACIOUSE 
JUMPE DAT.UCLSi 
HRLI DAT, PROG 
HRR DAT.PDAT; 



;FIRST WORD OF 3 WORD BUFFER HEADER 

;REMEMBER CURRENT BUFFER IN TACI 

;USED BOTH FOR HEADER AND EACH BUFFER 

JHAS A RING BEEN SETUP?(NO IF 0) 

* YF S 

ADVANCE CURRENT INPUT BUFFER ADDRESS 



MS ADDRESS OK? 



AORCHK DAT 
PUSHJ PDP.ADRCK 
HRRZ TAC.DAT 

ANDCAM TAC^DAT ;YES, 

CAME TACI. DAT; DONE? 

JRST UCLS0 
UCLSl: HRLI DAT, PROG 

HRR DAT,DEVBUF{DEVDAT) 

lORM TAC^DAT 

ADDI DAT,2J 

SETZM eiDAT 
UCLS2: TRNN UUO,CLSOUT 

TLNN DEVDAT.OBUFB 

JRST UCLS3 

HLR OAT. DEVBUF(DEVDAT) 

HRLI OAT, PROG 

SKIPG e>DAT 

JRST UCLS3 ;YES 

MOVE TAC,OEVSFR(DEVDAT) 

PUSHJ POP,DCL(TAC); CLOSE 

HLR DAT,DEVBUF(DEVDAT) 

HRLI DAT, PROG 

HRLZI TACIOUSE 

lORM TAC.POAT 

ADDI DAT, 2 

SETZM eOAT; JBFCTR:=0 

UCLS3: PUSHJ PDP,WAIT1 

POP PDP.DAT 

TDZ lOS.CXWD lOEND.IOOEND] 

TLO lOS.IOBEG 

MOVEM IOS,DEVIOS(DEVDAT); 



CLEAR USE BIT. 



IN 3 WORD HEADER 



JFLAG AS VIRGIN BUFFER 

JBFCTR:=0 

;CLEAR INPUT ITEM COUNT. 

;SUPPRESS OUTPUT? 

;N0.WAS output BUFFER SPECIFIED? 

JNO 

{VIRGIN OUBPUT BUFFER? 



OUTPUT BUFFER 



IODISC:=0 



PI00065 254000 000001 



01240 



JRST UXITi 



EXIT THIS UUO 
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01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 



DEC 
H. R. 
CALLI 



CALLING 



N 



SETS 
AN 



INPUT 
OUTPU 
BUFPN 
MONIT 



6 00 EX UUO L 

MORSE 
NG SEQUENCE 
INBUF 0, 
EXIT 
SEQUENCE 
OUTBUF D 
EXIT 
UP AN N BUF 
D INITIALIZE 
JBFADR0: 
JBFADR 1 
SETS DEVIAO 
T SET DEVOAD 
T IS RESTORE 
OR INTERFACE 
storage: 
ROUTINES 
SYMBOLS 
ACCU 



PT PRE 02 
64-12-26 



INBUF, OUTBUF 



RETURNS HERE IF MEMORY NOT EXCEEDED 



,N 

RETURNS HERE IF MEMORY NOT EXCEEDED 
FER RING FOLLOWING THE USERS PROGRAM FOR DEVICE 
S THE JOB BUFFER AREA HEADER: 
=1. JBFADR 1-I7ts0 

8-35:=A0DRESS OF FIRST BUFFER IN RING 
:=ADDRESS OF FIRST BUFFER IN RING 
:=ADDRESS OF FIRST BUFFER IN RING 
0. 



13 

called: 
set/used: 
MULATORS: 



BUFCLC, UXIT 



DEVICE DATA 



JOB BUFFER 



BUFPNT 
DEVDAT 
POP 
block: 

DEVIAD 
DEVOAD 
area: 



S/U 

U 

U 

DEV8UF 
S 
S 

JBFADR 



PROG 
TAC 

TACl 



U 

S/U 

S/U 
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01520 










01530 










01540 










01550 




000066 


261140 


000012 


01560 


uoutbf: 


000067 


260140 


000000 


01570 




000070 


544046 


000006 


01580 




000071 


542506 


000010 


01590 
01600 


r 


000072 


505040 


000007 


01610 


UOBFi: 


000073 


202520 


000001 


01620 
01630 


> 


000074 


262140 


000012 


01640 




000075 


254000 


000065' 


01650 




000076 


261140 


000012 


01660 


UINBF: 


000077 


260140 


000067' 


01670 




000100 


542506 


000007 


01680 
01690 


> 


000101 


540046 


000006 


01700 




000102 


254000 


000072' 


01710 





INTERN UINBF, UOUTBF 



PUSH P0P,BUFPNT; save BUFPNT ON STACK 
PUSHJ PDP.BUFCLC; set up buffer RING 

HLR TAC.DEVBUF(DEVDAT)JTAC:=OUTPUT BUFFER AREA HEADER ADDRE 
HRRM BUFPNT, DEVOAD(DEVDAT);OEVOAD:sAOORESS OF FIRST BUFFER 

IN RING 

RELOCATE BUFFER AREA HEADER ADDRESS 

JBFADR:=I0USE, ADDRESS OF FIRST BUFFER 
IN RING 

RESTORE BUFPNT FROM STACK 

EXIT THIS UUO 

SAVE BUFPNT ON STACK 

SET UP BUFFER RING 



HRLI tacprog; 

MOVEM BUFPNT, ^TACJ 



POP PDP, BUFPNT; 
JRST uxit; 
PUSH PDP»BUFPNTJ 
PUSHj PDP.BUFCLC; 



HRRM BUFPNT. DEVIAD(DEVDAT); DEVIAD:=ADDRESS OF FIRST BUFFER 

IN RING 
TAC:=INPUT BUFFER AREA HEADER ADDRE 



HRR TAC.DEVBUF(DEVDAT); 
JRST UOBFl 



lOCONT - CONTROL FOR 
8-9-65 



10 PROGRAMMED OPERATORS 



PAGE 8 



01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 



DEC 06 
H. R. M 
CALLING 



THE LEF 
THE 
UNIT 

IF THE 
OTHERWI 
CHANNEL 
lOACT I 



MONITOR 



00 EX 
ORSE A 
SEOUE 
INIT 

SIXB 

XWD 

EXIT 

EXIT 

T HALF 

RIGHT 

) OR N 

SELECT 

SE, TH 

D. T 

S ZERO 

lOBE 

DATA 

lOCO 

lOWC 

lORD 

lOAC 

JBFA 

DEVB 

INTER 

STOR 

ROUT 

SYMB 



UUO L 
NO D. 
NCE 
D,MO 

IT/NA 
OBUF, 
1 
2 

OF N 
HALF 
0N-2E 
ED DE 
E DEV 
HE DE 



PT PRE 03 INIT 
A. WITCRAFT 



DUS 



D=J0B DE 

M0DUS=I0 

HE/ DEVICE N 

IBUF BUFFER A 

DEVICE N 

DEVICE P 

AME CONTAINS THE TH 

IS EITHER 2ER0 (SYS 

RO TO REQUEST A SPE 

VICE IS NOT AVAILAB 

ICE IS ASSIGNED TO 

VICE IS INITIALIZED 



2/21/65 

VICE CHANNEL 
RDEL,IOCON, lOWCMODE. 
AME 

REA HEADER ADDRESSES 
OT AVAILABLE 
ROPERLY ASSIGNED 
REE LETTER DEVICE MNEMONIC, 
TEM WILL ASSIGN AN ARBITRARY 
CIFIC UNIT (LEFT JUSTIFIED). 
LE, CONTROL RETURNS TO EXITl. 
THE USER AND ATTACHED TO HIS 
IN THE FOLLOWING MANNER AFTER 



G: = 
MO 
N: = 
:=B 
el: 
T: = 
or: 
UF: 
FAC 
AGE 
INE 
OLS 
ACC 



1 

DE:=B 
BIT 3 
IT 30 
= BIT 
lODEN 
= JBFC 
= OBUF 
E 

: 20 

S CAL 

SET/ 

UMULA 



ITS 32-35 OF AC UUO 
1 OF AC UUO 

OF AC UUO 
29 OF AC UUO 

D! = IOBKTL: = IOOTER:=!IODERR: = IOIMPM:=0 
TR:=0 for the SPECIFIED BUFFERS. 
, IBUF 



led: 

used: 

tors: 



UINTQ, ASSIGN(UASG1),USEL,UINITZ,UXIT 



DEVDAT U 

POP U 

PROG U 
DEVICE DATA BLOCK: DEVBUF S 



TAG U 
TACl S/U 
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02060 








02070 


000103 


135040 


000002' 


02080 


000104 


332301 


000003 ' 


02090 


000105 


260140 


00043« ' 


02100 


000106 


200600 


000040 


02110 


000107 


260140 


000000 


02120 


000110 


350003 


000000 


02130 


000111 


200200 


000000 


02140 


000112 


260140 


000000 


02150 


000113 


254000 


!>1 


02160 


000114 


135040 


000103' 


02170 


000115 


552301 


000104' 


02180 


000116 


515040 


000002 


02190 


000117 


202046 


000002 


02200 


000120 


260140 


000000 


02210 
02220 


000121 


260140 


000107' 


02230 


000122 


505300 


400000 


02240 


000123 


607040 


777777 


02250 


000124 


254000 


000127' 


02260 


000125 


502046 


000006 


02270 


000126 


661300 


100000 


02280 


000127 


606040 


777777 


02290 


000130 


254000 


000133 ' 


02300 


000131 


542046 


000006 


02310 


000132 


661300 


200000 


02320 


000133 


550100 


000001 


02330 


000134 


260140 


000142' 


02340 


000135 


544100 


000001 


02350 


000136 


260140 


000142' 


02360 


000137 


135040 


000114' 


02370 


000140 


502301 


000115' 


02380 


000141 


254000 


000000 


02390 



UINIT: 



UINITi: 



UINIT4: 



UINIT5: 



;CALLED BY SAVGET 
TRY TO ASSIGN DEVICE 
NOT AVAILABLE 



INTERN UINIT, UINITI 

LDB TAC.PUUOAC JUSER DEVICE CHANNEL NO. 
SKIPE DEVOAT,USRJDA(TAC) MS A DEVICE ALREADY HERE? 
PUSHJ PDP.RELEA0 ;YES, RELEASE IT 
MOVE UUO,40 {RESTORE AC UUO FROM LOC 40 

PUSHJ PDP.UINTQ ;GET SIXBIT DEVICE NAME FROM USER 
AOS (POP) 
MOVE ITEM, JOB 
PUSHJ POP.ASSINJ 
JRST CUXITi; 
LDB TAC.PUUOAC 
HRRZM DEVDAT,USRJDA(TAC) 
HRL2I TAC.IOBFG 
MOVEM TAC.DEVIOS(DEVDAT) 
PUSHJ PDP.SETIOS ;SET DOB 

;from RT 

PUSHJ PDP.UINTQ 

HRLI DEVDAT. INITB JSET INIT UUO BIT 

TLNN TAC,-1 

JRST UINIT4 JOUTPUT NOT SPECIFIED 

HLLM TAC,DEVBUF(DEVDAT) 

TLO DEVDAT, OBUFB ;SET OUTPUT BUFFER SPECIFIED BIT 

TRNN TAC,-i; IS IBUF SPECIFIED? 

JRST UINIT5 MNPUT BUF NOT SPECIFIED 

HRRM TAC,DEVBUF(DEVDAT); DEVBUF 18-35:=IBUF 



;STORE DDB ADRJN DEVICE TABL 



lOS STATUS WORD 
HALF OF UUO 



TLO DEVDAT, IBUFB 

HRRZ TACl.TAC; 

PUSHJ PDP,UINITZ; 

HLR TAC1,TAC; 

PUSHJ PDP,UINITZ; 

LDB TAC.PUUOAC 

HLLM DEVDAT. USRJDA(TAC) 

JRST CUXIT2 



;SET INPUT BUFFER 

TACi:=PROG,IBUF 

JBFADR:=JBFCTR:=0 

TACi:=PROG,OBUF 

JBFADR:=JBFCTR:=0 



SPECIFIED BIT 



FOR IBUF 



FOR OBUF 



;STORE UUO BITS FOR THIS CHANNEL 
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000142 
000143 
000144 
000145 
000146 
000147 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000160 
000161 
000162 



606100 
263140 
505100 
260140 
551042 
402020 
350000 
261140 
261140 
350000 
402020 
260140 
621040 
262140 
502060 
262140 
263140 



777777 

000000 

000007 

000027' 

000002 

00000? 

000002 

000001 

000002 

000002 

000002 

000000 

770077 

000002 

000002 

000001 

000000 



02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 
02530 
02540 
02550 
02560 
02570 
02580 
02590 
02600 
02610 
02620 
02630 
02640 
02650 
02660 
02670 
02680 
02690 
02700 
02710 
02720 
02730 
02740 
02750 



DEC 06 00 EX COM L PT PRE 03 UINITZ 
H. R. MORSE 64-12-26 
CALLING SEQUENCE 

PUSHJ POP, UINITZ 

EXIT RETURNS HERE IF MEMORY NOT 

SETS JBFADR!=JBFCTR:=0 FOR THE BUFFER AREA HEADER WHOSE 
IS IN AC TACl. ALS0.J8FPTR 0-5:=JBFPTR 12-17 :=0, JBFPTR 
MONITOR INTERFACE 



EXCEEDED. 

ADDRESS 

6-li:sBYTE 



UINITZ 



ST0RAGE:15 
ROUTINES called: 
SYMBOLS set/used: 
ACCUMULATORS: 

TACl 
JOB BUFFER AREA: 



INTERN UINITZ 



TRNN TAC 
POPJ POP 
HRLI TAC 
PUSHJ PD 
HRRZI TA 
SETZM eiT 
AOS TACl 
PUSH POP 
PUSH PDP 
AOS TACl 
SETZM PT 
PUSHJ PD 
TLZ TAC. 
POP POP, 
HLLM TAC 
POP PDP, 
POPJ POP 



i.-i; 

, {RETURN 

1,PR0G 

P.ADRCK 

C,2(TAC1> 

ACi; 

,TAC 
,TAC1 

ACi; 

p.setbyt; 

770077 
TACl 
,i?'TACl 
TAC 



ADRCK, SETBYT 

PDP U TAC S/U 

S/U 
JBFADR S 

JBFCTR S 

JBFPTR S 



IS BUFFER SPECIFIED? 

;CHECK 3 WORD BUFFER HEADER 
JBFADR:=0 



JBFCTR:=0 

JBFPTR 6-li:=BYTE SIZE 



RETURN 
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000163 603000 000020 

000164 260140 000060' 

000165 135040 000137' 

000166 661300 010000 

000167 502301 000140' 

000170 135040 000005' 

000171 301040 000016 

000172 254000 000271' 

000173 540246 000006 

000174 515040 400000 

000175 505240 000007 

000176 260140 000145' 

000177 551045 000002 

000200 200120 000005 

000201 505100 000007 

000202 337020 000005 

000203 254000 000256' 

000204 260140 000176' 

000205 550040 000002 

000206 413060 000002 

000207 542060 000005 

000210 260140 000204' 

000211 550040 000001 

000212 200006 000002 

000213 606000 010000 

000214 254000 000220' 

000215 606000 000040 

000216 254000 000224' 

000217 260140 000000 

000220 505040 000007 

000221 540060 000001 

000222 331020 000001 

000223 260140 (7100276' 

000224 540120 000002 

000225 335020 000002 

000226 254000 000236' 

000227 260140 000217' 

000230 335020 000002 

000231 254000 000236' 

000232 612000 000474' 

000233 254000 000250' 

000234 200006 000002 

000235 254000 000227' 

000236 271100 000001 

000237 550220 000002 

000240 275100 000001 

000241 261140 000004 



02760 
02770 
02780 
02790 
02800 
02810 
02820 
02830 
02840 
02850 
02860 
02870 
02880 
02890 
02900 
02910 
02920 
02930 
02940 
02950 
02960 
02970 
02980 
PUSHJ 

02990 
03000 
03010 
03020 
PUSHJ 

03030 

03040 

03050 

03060 

03070 

03080 

03090 

03100 

03110 

03120 

03130 

03140 

03150 

03160 

03170 

03180 

03190 

03200 

03210 

03220 

03230 

03240 

03250 

03260 

03270 

03280 



INTERNAL IN 



IN: 



INl: 



TLNE I0S,I0 

PUSHJ PDP.WAITl 

LDB TACPUUOAC 

TLO DEVOAT, INPB 

HLLM DEVDAT.USRJDA(TAC) 

LDB TACPIOMOD ;I0 MODE 

CAIL TAG, OR J IS THE 10 

JRST INDMP ;YES 

HRR JBUF,DEVBUF(DEVDAT) 

HRLZI TAC.IOUSE 

HRLI JBUF.PROG 

PUSHJ PDP.ADRCK 

HRRZI TAC,2(JBUF) 

MOVE TACl.^JBUF 



;IS THIS DEVICE ALREADY DOING OUTPUT? 
;YES,WAIT TILL IT IS FINISHED 
;SET BIT THAT SAYS AN INPUT UUO HAS OCC 
;F0R THIS DEVICE 

IN LH OF CURRENT JOB DEVICE 

MODE DUMP MODE? 



NO, 



ADDRESS OF 3 WORD BU 



RELOCATION USING A 



HRLI TACl.PROG 
SKIPG (?JBUF 

JRST INPUTF 
ADRCHK TACl 



PDP.AORCK 
HRRZ 



TAC, 



TACl 
ANDCAB 



TAC,»TAC1 



HRRM TAC.eiJBUF 
ADRCHK TAC JAND 



PDP.ADRCK 
HRRZ 

INPUT0 



GET 
{BUFFER INUSE BIT 
;SET INDEX FIELD FOR 
;CHECK BUFFER HEADER 
;END ADDRESS OF 3 WORD HEADER 
;GET WORD 1 OF 3 WORD BUFFER HEADER (PO 
;SET INDEX FIELD COR RELOCATION USING A 
;HAS a BUFFER RING BEEN SET UP (RH NON- 
;WHICH HAS BEEN REFERENCED BY PREVIOUS 
;N0. go SET UP BUFFER IF NECESSARY AND 
;YES, check ADDRESS to SEE IF IN BOUNDS 



;FLAG this BUFFER AS BEING FILLED (USE 
;AND GET POINTER TO NEXT BUFFER 
;SET WORD 1 IN 3 WORD HEADER TO NEXT BU 
CHECK ITS ADDRESS TO SEE IF IN BOUNDS 



INPT08 



TAC. TAC 

MOVE 

TRNN 

JRST 

TRNN 

JRST 

PUSHJ 

HRLI 



IOS,OEVIOS(DEVDAT) 
lOS, lOACT 

INPT0B 
IDS, lOCON 
INPT0C 

PDP.WSYNC 
TAC, PROG 



THE 



;get 

DEVICE 



10 STATUS WORD 

ALREADY ACTIVE (FILLING 



INPT0C: 
INPT0A; 

INPUTi: 



INPUT2: 



HRR TAC,e»TAC 

SKIPL e>TAC 

PUSHJ PDP.CALIN 

HRR TAC1,»TAC1 

SKIPGE ©TACl 

JRST INPUT2 

PUSHJ PDP.WSYNC 

SKIPGE PTACl 

JRST INPUT2 

TONE lOS.CXWD lOEND. lODERR] 

JRST INEOF 

MOVE I0S,0EVI0S{DEVDAT) 

JRST INPUTI 



ADDI TACl.l 
HRRZ ITEM.PTACl 
SUBI TACl.l 
PUSH POP, ITEM 



MS 

;no. 

;does the user want to stop after every 

;no. he wants normal continuous overlap 

;yes, wait till device finishes with on 

;SET FOR relocation 

;get pointer i block ahead of next biuf 

;is THE use bit set? 



;SAVE word count as stored by 10 servic 



000242 260140 000000 03290 

000243 262140 000004 03300 

000244 135040 000170' 03310 

000245 306040 000010 03320 

000246 202220 000005 03330 

000247 254000 000075' 03340 



PUSHJ PDP, lOSETC 
POP PDP. ITEM 
LDB TACPIOMOD 
CAIN TAC, I 
MOVEM ITEM,ejBUF 
JRST UXIT 



;get device data 
; image mode? 
;yes, store word 



MODE 



COUNT NOT item COUNT 



lOCONT - 



- CONTROL FOR 


10 PROGRAMMED OPERATORS 


8-9-65 






03350 




000250 


551000 


020000 


03360 


INEOF: 


000251 


436006 


000002 


03370 




000252 


254000 


000247' 


03380 
03390 
03400 
03410 




000253 


540100 


000014 


03420 


INPUTa: 


000254 


412060 


000002 


03430 




000255 


254000 


000212' 


03440 
03450 
03460 


;here on 


000256 


412060 


000005 


03470 


inputf: 


000257 


540060 


000005 


03480 




000260 


542046 


000007 


03490 
03500 




000261 


336020 


000005 


03510 




000262 


254000 


000265' 


03520 




000263 


260140 


000276' 


03530 
03540 




000264 


254000 


000225' 


03550 




000265 


541600 


000002 


03560 
03570 


INPUT3: 


000266 


260140 


000076' 


03580 




000267 


513000 


000014 


03590 




000270 


254000 


000173' 


03600 
03610 
03620 




000271 


260140 


000227' 


03630 


INOMP: 


000272 


200046 


000003 


03640 




000273 


260141 


000007 


03650 




000274 


260140 


000164' 


03660 




000275 


254000 


000252' 


03670 
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HRRZI IOS.IODEND 

IORM I0S,0EVI0S{DEVDAT) 

JRST UXIT 



HRR TACl.UUO 
ANOCAM TACPTACl 
JRST INPUT0 

FIRST INPUT AFTER INIT. INIT & LOOKUP, OR INIT & LOOKUP « IN 
ANDCAM TACPJBUF ;MARK THAT BUFFERS HAVE BEEN REFERENCED 
HRR TAC.«»JBUF ;PICKUP ADDRESS OF FIRST BUFFER IN RING 
HRRM TAC,DEVIAD(DEVDAT) ;SET CURRENT RING BUFFER ADDR 

;IN DEVICE DATA BLOCK 
;HAS a ring BEEN SET UP YET? 
;N0. GO SET UP A 2 BUFFER RING 
JYES. GO START 10 SERVICE ROUTINE 
{FILLING BUFFER 



SKIPN 5>JBUF 
JRST INPUT3 
PUSHJ PDP.CALIN 



JRST 
HRRI 



INPT0A 
UU0,2 



{BUFFERS 



NOT SETUP YET. 
iSET UP 2 



PUSHJ PDP 
HLLZS UUO 
JRST INI 



UINBF 



JCLEAR RIGHT HALF 



PUSHJ PDP.WSYNC 

MOVE TAC.DEVSER(DEVDAT) 

PUSHJ PDP.DDKTAC) 

PUSHJ PDP.WAITl 

JRST UXIT 
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03680 
03690 
03700 
03710 

000276 603000 000040 03720 CALIN: TLNE IOS,IOEND 

000277 263140 000000 03730 POPJ POP, 

000300 260140 000271' 03740 PUSHJ PDP.WSYNC 

000301 261140 00000? 03750 PUSH PDP,TAC1 

000302 200046 000003 03760 MOVE TAG , DEVSER (DEVDAT ) 

000303 260141 000003 03770 PUSHJ PDP,DIN(TAC) 

000304 262140 000002 03780 POP PDP.TACl 

000305 263140 000000 03790 POPJ POP, 

03800 
03810 
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03820 
03830 
03840 
03850 
03860 
03870 
03880 
03890 
03900 
03910 
03920 
03930 
03940 
03950 
03960 
03970 
03980 
03990 
04000 
04010 
04020 
04030 
04040 
04050 
04060 
04070 
04080 
04090 
04100 
04110 
04120 
04130 
04140 
04150 
04160 
04170 
04180 
04190 
04200 
04210 
04220 
04230 
04240 
04250 
04260 
04270 



DEC 06 00 EX COM L PT PRE 03 OUTPUT 
H.R. MORSE 2/21/65 
CALLING SEQUENCE 

OUTPUT D, 

EXIT 



OR 



IF 
IF 



IF 
1) 



2) 



5) 
6) 

7) 

8) 



9) 



OUTPUT D, ADR 
EXIT 

INPUT IS ACTIVE, 
DUMP MODE WAS SE 
TO SEE IF DUMP F 
NOT LEGAL, (lORE 
CONTROL IS TRANS 
OTHERWISE. THE PR 
WRITES THE DUMPF 
THE MODE IS NOT 
IF ADR IS NOT ZE 
CURRENT BUFFER A 
SPECIFYING THAT 
USERS PROGRAM BY 
2) DIRECTLY. 



WAIT FOR IT TO 
LECTED BY THE LA 
ILES ARE LEGAL F 
T=0) AN ERROR ME 
FERRED TO THE CO 
OGRAM WAITS UNTI 
ILE AND RETURNS 
DUMP, THEN 
RO, WAIT FOR DEV 
DDRESS EQUAL TO 
THIS BUFFER RING 

AN INPUT OR AN 



COMPLETE. 
ST INIT UUO, 
OR THIS DEVI 
SSAGE IS PRI 
MMAND INPUT 
L THE DEVICE 
CONTROL TO T 

ICE TO BECOM 
ADR AND AN I 
HAS NEVER B 
OUTPUT UUO. 



THEN A CHECK IS MADE 
CE. IF DUMP FILES AR 
NTED ON THE TTY AND 
ROUTINE. 

IS INACTIVE AND THEN 
HE USERS PROGRAM 

E INACTIVE THEN SET T 
NDICATOR (JBFADR0) 
EEN REFERENCED FROM T 
OTHERWISE, GO TO 



IF THE BUFFER RING HAS NEVER BEEN REFERENCED (JBFaDR0=1). THE 
BUFFER IS CLEARED, lOUSE SET TO ZERO AND 

IF THE CURRENT BUFFER ADDRESS IS ZERO, A TWO BUFFER RING IS SE 

THEN GO TO 8 

3) IF THE BUFFER RING HAS BEEN REFERENCED (JBFAOR0=0 .THEN AC 
MADE TO DETERMINE IF THE WORD COUNT IS TO BE COMPUTED. 

IF THE WORD COUNT IS TO BE COMPUTED (IOWC=0). IT IS SET EQUAL 
TO THE ADDRESS FOR THE LAST DATA WORD MINUS THE ADDRESS OF THE 
BUFFER MINUS ONE. 

4) lOUSE IS SET TO ONE. INDICATING THAT THE BUFFER IS FULL OR BEING 
EMPTIED, AND THE CURRENT BUFFER ADDRESS IS ADVANCED. 



IF THE DEVICE IS NOT ACTIVE (IOACT=0), OUTPUT IS STARTED. 
IF THE CURRENT BUFFER IS FULL OR BEING EMPTIED (I0USE=1), 
THE PROGRAM WAITS UNTIL THE DEVICE IS INACTIVE. 
THE CURRENT BUFFER IS CLEARED. 

THE ITEM POINTER IS INITIATED TO THE CURRENT BUFFER ADDRESS+1 
AND THE ITEM COUNT IS SET TO THE PRODUCT OF THE BUFFER SIZE 
MINUS ONE AND THE INTEGER PART OF 36/BYTE SIZE. 
RETURN TO THE USERS PROGRAM 
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04280 








04290 


.MONITOR INTERFACE 






04300 


STORAGE: 54 






04310 


ROUTINES called: 


ADRCK, BUFCLR, CALOUT, 


04320 




OUTBUF, UXIT< 


WSYNC, 


04330 


SYMBOLS set/used: 






04340 


accumulators: 


DEVDAT U 


PROG U 


04350 




lOS U 


TAC S/U 


04360 




ITEM S/U 


TACl S/U 


04370 




JBUF S/U 


UUO S 


04380 




POP U 




04390 


DEVICE DATA BLOCK 


: DEVBUF U 


DEVOA 


04400 


10 STATUS word: 


lOACT U 




04410 




lOWC u 




04420 


JOB BUFFER AREA: 


JBFADR S/U 




04430 




JBFCTR S 




04440 




JBFPTR S/U 




04450 




BUFFER SIZE 


U 


04460 




lOUSE S/U 




04470 




WORD COUNT £ 


' 



INOUT, lOSETC, OUTA, 
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000306 
000307 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000320 
000321 
000322 
000323 
000324 

000325 
000326 
000327 
000330 
000331 
000332 
000333 
000334 

000335 
000336 



000340 
000341 
000342 
000343 

000344 
000345 
000346 
000347 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000360 



607000 
260140 
135040 
661300 
502301 
135040 
301040 
254000 
260140 
544246 
260140 
551045 
505240 
515040 
337120 

254000 
350000 
550060 
271100 
274040 
505100 
602000 
254000 



000020 

000274' 

000165' 

004000 

000167' 

000244' 

000016 

000402' 

000407' 

000006 

000210' 

000002 

000007 

400000 

000005 

000361' 

000005 

000005 

000001 

000002 

000007 

000020 

000340' 



260140 000320 
550040 000002 



000337 542060 000002 



275240 000001 
275100 000001 
515040 400000 
437060 000002 



260140 
550040 
542060 
200006 
606000 
260140 
544246 
505240 
200120 
505100 
337020 
260140 
254000 



000335' 

000002 

000005 

000002 

010000 

000421' 

000006 

000007 

000005 

000007 

000002 

000300' 

000372' 



04480 
04490 
04500 
04510 
04520 
04530 
04540 
04550 
04560 
04570 
04580 
04590 
04600 
04610 
04620 
04630 
04640 
04650 
04660 
04670 
04680 
04690 
04700 
04710 
04720 
04730 
04740 
04750 
04760 
PUSHJ 

04770 
04780 
04790 
04800 
04810 
04820 
04830 
04840 
PUSHJ 

04850 
04860 
04870 
04880 
04890 
04900 
04910 
04920 
04930 
04940 
04950 



INTERN OUT 



OUT: 



OUTl 



TLNN lOS.IO 

PUSHJ PDP.WAITl 

LDB TAC.PUUOAC 

TLO OEVDAT.OUTPB 

HLLM DEVDAT,USRJDA(TAC) 

LDB TAC.PIOMOD 

GAIL TACDR 

JRST OUTDMP 

PUSHJ PDP.OUTA 

HLR JBUF,DEVBUF(DEVDAT) 

PUSHJ PDP.ADRCK ;CHECK 

HRR2I TAC,2(JBUF) 

HRLI JBUF.PROG 

HRL2I TAG, lOUSE 

SKIPG TAGl, PJBUF 



JRST OUTF 
AOS J8UF 
HRRZ TAG, PJBUF 
ADDI TACl, 1 
SUB TAG, TAGl 
HRLI TAGl, PROG 
TRNE lOS, lOWC 
JRST 0UT2 
ADRCHK TACl 



;IS THIS DEVICE 
;YES. WAIT TILL 



ALREADY DOING INPUT? 
IT BECOMES INACTIVE 



END or 3 WORD HEADER 



;HAS this BUFFER EVER 
; ;REFERENCED?{ JBFADR0: 



BEEN 
0?) 



ICOMPUTE WORD COUNT? ( I OWC=0? ) 



PDP.ADRCK 
HRRZ 



0UT2 



TAG, TACl 



PDP,ADRGK 
HRRZ 



HRRM TAG, PTACI 

SUBI JBUF.l 
SUBI TACl.l 
HRLZI TAG, lOUSE 
lORB TAG, 9TAC1 
ADRCHK TACl 

TAG, TACl 

HRRM TACPJBUF 

MOVE I0S,DEVIOS (DEVDAT) 

TRNN IOS,IOACT 

PUSHJ POP, CALOUT 

HLR JBUF,DEVBUF(DEVDAT) 

HRLI JBUF.PROG 

MOVE TACl.PJBUF 

HRLI TACl, PROG 

SKIPG ©TACl 

PUSHJ POP, WSYNC 

JRST OUTS 



{PROCEED IF ADDRESS OF WORD COUNT 

;<PROTEGTION ADDRESS 

;WORD C0UNT:=C(JBFPTRl6-35) 



-C(JBFA0R18-35>- 



;iouse:=i 



;A0VANCE CURRENT BUFFER AODRE 



JSTART OUTPUT 



;I0USE=1? 
;WAIT FOR 



DEVICE TO BECOME IN 
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000361 332120 000005 

000362 254000 000367* 

000363 541600 000002 

000364 260140 000066' 

000365 544246 000006 

000366 505240 000007 

000367 515040 400000 

000370 413060 000005 

000371 542046 00001PI 

000372 550060 000005 

000373 260140 000000 

000374 540120 000005 

000375 505100 000007 

000376 135200 000475' 

000377 275200 000001 
000400 260140 000242' 



000401 254000 000275' 

000402 260140 000357' 

000403 200046 000003 

000404 260141 000006 

000405 260140 000307' 

000406 254000 000401' 



04960 
04970 
04980 
04990 
05000 
05010 
05020 
05030 
05040 
05050 
05060 
05070 
05080 
05090 
05100 
05110 
05120 
05130 
05140 
05150 
05160 
05170 
05180 
05190 
05200 
05210 
05220 



OUTF: 



OUTFi: 



OUTS! 



OUTDMP 



SKIPE TAC1,«>JBUF 

JRST OUTFI 

HRRI UU0,2 

PUSHJ PDP.UOUTBF 

HLR JBUF,DEVBUF(DFVDAT) 

HRLI JBUF.PROG 

HRLZI TAG. lOUSE 

AN0CA8 TAG, PJBUF 

HRRM TAG,DEVOAD(DEVDAT) 

HRRZ TAC.ejBUF 

PUSHJ PDP.BUFCLR 

HRR TACl.ejBUF 

HRLI TAGl.PROG 

LOB ITEM,CPOINT 17,9TAC1,17] 

SUBI ITEM.l 

PUSHJ POP, lOSFTC 



; IQUSE:=0 



JRST UXIT 



;jbfptr18-35:=gurrent buffer 
;adoress+i 

; JBFCTR:=(BUFFER SIZE-1^»C36/BYTE 

JSIZE] 

{RETURN TO USERS PROGRAM 



PUSHJ PDP.WSYNC 

MOVE TAC,DEVSER(DEVDAT) 

PUSHJ PDP,DOO(TAC) 

PUSHJ PDP.WAITl 

JRST UXIT 
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000407 
000410 
000411 
000412 
000413 
000414 
000415 
000416 
000417 
000420 



606600 
263140 
260140 
544246 
505240 
542620 
542606 
515040 
412060 
263140 



777777 

000000 

000405' 

000006 

000007 

000005 

000010 

400000 

000005 

000000 



05230 

05240 

05250 

05260 

05270 

05280 

05290 

05300 

05310 

05320 

05330 

05340 

05350 

05360 

05370 

05380 

05390 

05400 

05410 

05420 

05430 

05440 

05450 

05460 

05470 

05480 

05490 

05500 

05510 

05520 

05530 

05540 

05550 

05560 

05570 

05580 



DEC 06 00 EX COM L PT PRE 01 OUTA 
H,R. MORSE 64-12-26 

CALLING sequence: 

PUSHJ POP, OUTA 

EXIT ALWAYS RETURNS HERE 

IF THE ADDRESS FIELD OF AC UUO IS ZERO.EXIT. OTHERW ISE, CHECK lOACT. 
IF I0ACT=1, WAIT FOR IOACT=0. 
SET JBFADR18-35:=ADDRESS FIELD OF AC UUO. JBFADR0:=1 AND EXIT. 



MONITOR 



OUTA: 



INTERFACE 
ST0RAGE:13 
ROUTINES called: 
SYMBOLS set/used: 
ACCUMULATORS: 



DEVICE DATA BLOCK 
10 STATUS word: 
JOB BUFFER ARFA: 



WSYNC 



U 



OEVDAT 
lOS U 
JBUF S/U 
PDF S/U 
DEVIOS U 
lOACT U 
lOUSE U 
JBFADR S 



PROG U 
TAC S/U 
UUO S/U 
DEVBUF U 



; IS 

;no 



INTERN OUTA 

TRNN UUO, 777777 

POPJ POP, 

PUSHJ PDP,WAIT1 

HLR JBUF,DEVBUF(DEVDAT) 

HRLI JBUF, PROG 

HRRM UU0,6»JBUF 

HRRM UUO,DEVOAD(DEVDAT) 

HRL2I TACIOUSE 

ANOCAM TAC^JBUF 

POPJ POP, ;return 



BUFFER ADDRESS SPECIFIED? 
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PI00421 606000 010000 

0004P2 254000 000426' 

000423 606000 000040 

000424 263140 000000 

000425 260140 000402' 

000426 200046 000003 

000427 254001 000002 



05590 
05600 
05610 
05620 
05630 
05640 
05650 
05660 
05670 
05680 
05690 
05700 
05710 
05720 
05730 
05740 
05750 
05760 
05770 
05780 
05790 
05800 
05810 
05820 
05830 
05840 



DEC 06 00 EX COM L PT PRE 03 CALOUT 
H.R. MORSE 2/21/65 

CALLING SEQUENCE 

PUSHJ POP, CALOUT 
EXIT 

DISPATCH TO DEVICE SERVICE ROUTINE DOU TO INITIATE OUTPUT. 

MONITOR INTERFACE 
ST0RAGE:2 



SYMBOLS set/used: 
ACCUMULATORS: 

DEVICE DATA BLOCK 



OEVDAT U 
TAC U 
DEVSER U 



CALOUT; 



CALOUl 



INTERN CALOUT 

TRNN IOS,IOACT 

JRST CALOUl 

TRNN IOS,IOCON 

POPJ POP, 

PUSHJ PDP,WSYNC 

MOVE TAC,DEVSER(0EVDAT) 

JRST DOU(TAC) 
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000430 200006 00000? 



000431 
000432 
000433 
000434 
000435 
000436 
000437 
000440 
000441 
000442 
000443 
000444 
000445 
000446 
000447 
000450 
000451 



620600 
260140 
260140 
200046 
260141 
135040 
402001 
201040 
550101 
302106 
365040 
325040 
201100 
413106 
616100 
137600 
254000 



777777 

000000' 

000411- 

000003 

000000 

000310' 

000312' 

000017 

000437' 

000000 

000441' 

000406' 

200000 

000004 

000476' 

000000 

000444' 



05850 
05860 
05870 
05880 
05890 
05900 
05910 
05920 
05930 
05940 
05950 
05960 
05970 
05980 
05990 
06000 
06010 
06020 
06030 
06040 
06050 
06060 
06070 
06080 
06090 



.RELEASE A DEVICE 



INTERNAL RELEAl , RELEA2, RELEA3. RELEA5 



RELEA0: MOVE 
RELEA2:RELEA3: 



IOS,DEVIOS(DEVDAT) 



;CALLED FROM INIT 



;CL0SE BOTH INPUT AND OUTPUT 



FOR DEVICE TO BECOME INACTIVE 
;RELEASE WITHOUT WAITING 



DEVICE ON AONTHER USER CHANNEL? 



RELEAi: TR2 UU0,-1 

PUSHJ PDP.CLOSEl 

PUSHJ PDP.WAITl ;WAIT 
RELEA5: MOVE TAC, DEVSER (DEVDAT ) 

PUSHJ POP, DRL (TAC) 

LDB TAC.PUUOAC 

SETZM USRJDA(TAC) 

MOVEI TAC, 17 ; IS THE 
RELEA4: HRR2 TACl, USR JDA ( TAC ) 

CAIE TACl, (DEVDAT) 

SOJGE TAC,RELFA4 

JUMPGE TACUXIT JEXIT IF ON ANOTHER CHANNEL 

MOVEI TAC1,ASSPRG ;OTHERWISE CLEAR ASSIGNED BY 

ANDCAB TAC1,DEVM0D(0EVDAT) 

TDNN TAC1,CXWD TTYUSE, ASSCON] ;ASSIGNED BY CONSOLE OR TTY I 

DPS UUO.PJOBN ;N0, clear JOB NUMBER 

JRST UXIT 



PROG. BIT 
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000452 602014 000000 

000453 350003 000000 

000454 254000 000451' 



06100 
06110 
06120 
06130 
06140 
06150 
06160 
06170 
06180 
06190 
06200 
06210 
06220 
06230 
06240 
06250 
06260 
06270 
06280 
06290 
06300 
06310 
06320 
06330 
06340 



DEC 06 00 EX UUO L PT PRE 01 STATO 
H.R. MORSE 64-12-26 



CALLING SEQUENCE 

STATO D.MASK 
EXITl 
EXIT2 
TESTS BITS OF I/O STATUS 
ARE SELECTED BY MASK. 



ALL SELECTED BITS ARE 
SOME SELECTED BITS ARE 1 
WORD OF DEVICE ON USERS CHANNEL 



D WHICH 



MONITOR INTERFACE 
storage: 

ROUTINES called: 
SYMBOLS set/used: 
ACCUMULATORS: 



INTERN USTATO 

USTATO: TRNE IOS,(UUO) 
AOS (POP) 
JRST UXIT 



3 
UXIT 

lOS U 
POP U 
UUO U 



;SKIP IF ANY INDICATED BITS ARE ONE 
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000455 200040 000000 

000456 307054 000000 

000457 260140 000000 

000460 505600 000007 

000461 552020 000014 

000462 254000 000454' 



06350 
06360 
06370 
06380 
06390 
06400 
06410 
06420 
06430 
06440 
06450 
06460 
06470 
06480 
06490 
06500 
06510 
06520 
06530 
06540 
06550 
06560 
06570 
06580 
06590 
06600 
06610 
06620 



DEC 06 00 EX UUO L PT PRE 01 STATUS 
H.R. MORSE 64-12-26 

CALLING SEQUENCE 

STATUS D,ADR 

EXIT ALWAYS RETURNS HERE 

STORES I/O STATUS WORD OF DEVICE ON CHANNEL D IN LOCATION ADR. 



MONITOR INTERFACE 
storage: 

ROUTINES called: 
SYMBOLS SET/USED: 
ACCUMULATORS: 



INTERN USTaTS 
EXTERNAL ADRERR , USRREL 



USTATS: MOVE TAC, USRREL 
CAIG TAC, (UUO) 
PUSHJ POP, ADRERR 
HRLI UUO, PROG 
HRR2M IOS,®UUO 
JRST UXIT 



3 
UXIT 

IDS U 
PROG U 
UUO U 



;CHECK TO SEE IF IN BOUNDS 



JLOAD STATUS INTO INDICATED ADDRESS. 
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8-9-65 

06630 

06640 

06650 .CALLING SEQUENCE 

06660 , SETSTS D.BITS 

06670 , EXIT ALWAYS RETURN HERE 

06680 

06690 INTERNAL USETST 

06700 EXTERNAL WAIT1,SETI0S 

06710 

000463 260140 000433' 06720 USETST: PUSHJ PDP.WAITl JWAIT TILL DEVICE INACTIVE 

000464 205000 000002 06730 MOVSI lOS, lOBEG 

000465 436006 000002 06740 lORM I OS , DEV I OS (DEVDAT ) 

000466 542606 000002 06750 HRRM UUO , DEVIOS (OEVDAT ) 

000467 254000 000462' 06760 JRST UXIT 
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000470 606014 000000 

000471 350003 000000 

000472 254000 000467' 



000473 000040 020000 

000474 000040 200000 

000475 222120 000002 

000476 010000 400000 



06770 
06780 
06790 
06800 
06810 
06820 
06830 
06840 
06850 
06860 
06870 
06880 
06890 
06900 
06910 
06920 
06930 
06940 
06950 
06960 
06970 
06980 
06990 
07000 
07010 
07020 
07030 
07040 
07050 
07060 
07070 
07080 
07090 



DEC 06 00 EX UUO L PT PRE 01 STATE 
H.R. MORSE 64-12-26 



CALLING SEQUENCE 

STAT2 D.MASK 
EXITl 

EXIT2 



SOME SELECTED BITS ARE 1 
ALL SELECTED BITS ARE 



TESTS BITS OF I/O STATUS WORD OF DEVICE ON USERS 
CHANNEL D WHICH ARE SELECTED BY MASK. 



MONITOR INTERFACE 
storage: 

ROUTINES called: 
SYMBOLS set/used: 

accumulators: 



USTATZ: 



3 
UXIT 

lOS U 
POP U 
UUO U 



INTERN USTATZ 

TRNN IDS, (UUO) 
AOS (POP) 

JRST UXIT 



END, 



JSKIP IF ALL INDICATED BITS ARE ZERO 



THERE ARE NO ERRORS 
PROGRAM BREAK IS 000477 
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A 

ACl 

AC2 

AC3 

ADRCK 

ADRERR 

AL 

ASSCON 

ASSIN 

ASSPRG 

B 

BUFCLC 

BUFCLR 

BUFPNT 

BUFWRD 

CALIN 

CALOUl 

CALOUT 

CLOSB 

CLOSEl 

CLSIN 

CLSOUT 

CUXITl 

CUXIT2 

D 

DAT 

DCL 

DCW 

DDI 

DDO 

DDTMEM 

DDTSYM 

DEN 

OEVADR 

DEVBUF 

OEVCHR 

DEVCTR 

DEVDAT 

DEVIAD 

DEVIOS 

DEVLOG 

DEVMOD 

DEVNAM 

DEVOAD 

DEVPTR 

OEVSER 

DGF 

DIN 

DLK 

OOU 

OR 

DRL 

OSI 

DSO 

DTW 



000000 


INT 


000015 


INT 


000016 


INT 


000017 


INT 


000344' 


FXT 


000457' 


EXT 


000001 


INT 


400000 


INT 


000112'' 


EXT 


200000 


INT 


000014 


INT 


000077' 


EXT 


000373' 


FXT 


000012 


INT 


000013 


INT 


000276' 




000426' 




000421' 


INT 


002000 


INT 


000000' 


INT 


000002 


INT 


000001 


INT 


000113' 


EXT 


000141 ' 


FXT 


000017 


INT 


000005 


INT 


000001 


INT 


020000 


INT 


000007 


INT 


000006 


INT 


000037 


INT 


000036 


INT 


000004 


INT 


000007 


INT 


000006 


INT 


000001 


INT 


000011 


INT 


000006 


INT 


000007 


INT 


000002 


INT 


000005 


INT 


000004 


INT 


000000 


INT 


000010 


INT 


000010 


INT 


000003 


INT 


000012 


INT 


000003 


INT 


000005 


INT 


000002 


INT 


000016 


INT 


000000 


INT 


000011 


INT 


000010 


INT 


040000 


INT 
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nVAVAL 


000040 


INT 


OVCDR 


100000 


INT 


DVniR 


000004 


INT 


ovniRi 


400000 


INT 


DVIN 


000002 


INT 


nVLPT 


040000 


INT 


DVMTA 


000020 


INT 


DVOUT 


000001 


INT 


nVTTY 


000010 


INT 


ENTRB 


020000 


INT 


ERROR 


000000 


FXT 


I 


000010 


INT 


IB 


000013 


INT 


IBUFB 


200000 


INT 


ILLMOO 


000000 


EXT 


IN 


000163' 


INT 


INI 


000173' 




INDMP 


000271' 




INFOF 


000250' 




INITB 


400000 


INT 


INPB 


010000 


INT 


INPT0A 


000225' 




INPT0B 


000220' 




INPT0C 


000224* 




INPUT0 


000212' 




INPUTl 


000227' 




INPUT2 


000236' 




INPUT3 


000265' 




INPUTA 


000253' 




INPUTF 


000256' 




10 


000020 


INT 


lOACT 


010000 


INT 


lOBEG 


000002 


INT 


lORKTL 


040000 


INT 


lOCON 


000040 


INT 


lODENO 


020000 


INT 


lODERR 


200000 


INT 


lonisc 


400000 


INT 


lOnONE 


400000 


INT 


lOnTER 


100000 


INT 


lOEND 


000040 


INT 


lOFST 


000004 


INT 


lOIERR 


000000 


EXT 


lOIMPM 


400000 


INT 


lONRCK 


000100 


INT 


lORDEL 


000100 


INT 


lORET 


000020 


INT 


lOS 


000000 


INT 


lOSETC 


000400' 


EXT 


lOSTRT 


000010 


INT 


lOUSE 


400000 


INT 


lOW 


000001 


INT 


lOWC 


000020 


INT 


lOWS 


400000 


INT 


ITEM 


000004 


INT 
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JBFADR 


000000 


INT 


JBFCTR 


000002 


INT 


JBFPTR 


000001 


INT 


JBUF 


000005 


INT 


JOAT 


000011 


INT 


JERR 


002000 


INT 


JIOW 


100000 


INT 


JNA 


004000 


INT 


JOB 


000111' 


EXT 


JOBJDA 


000000 


FXT 


LOOKR 


040000 


INT 


MTW 


010000 


INT 


OBUFB 


100000 


INT 


OUT 


000306' 


INT 


OUTl 


000317' 




0UT2 


000340' 




OUTA 


000407' 


INT 


OUTOMP 


000402' 




OUTF 


000361' 




OUTFl 


000367' 




OUTPB 


004000 


INT 


OUTS 


000372' 




POP 


000003 


INT 


PICHN 


000100 


INT 


PIOMOD 


000313' 


EXT 


PJOBN 


000450' 


FXT 


PROG 


000007 


INT 


PUUOAC 


000436' 


EXT 


RELEA0 


000430' 




RELEAl 


000431' 


INT 


RELEA2 


000431 ' 


INT 


RELEA3 


000431' 


INT 


RELEA4 


000441 ' 




RELEA5 


000434' 


INT 


RUN 


200000 


INT 


RUNABL 


204000 


INT 


SETBYT 


000155' 


EXT 


SETIOS 


000120' 


FXT 


TAC 


000001 


INT 


TACl 


000002 


INT 


TEM 


000010 


INT 


TTYATC 


020000 


INT 


TTYUSE 


010000 


INT 


UCLS0 


000026' 




UCLSl 


000034' 




UCLS2 


000041' 




UCLS3 


000060' 




UCLS4 


000013' 




UINBF 


00W076' 


INT 


UINIT 


000103' 


INT 


UINITI 


000111' 


INT 


UINIT4 


000127' 




UINIT5 


000133' 




UINITZ 


000142' 


INT 


UINTQ 


000121' 


EXT 
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UORFl 




000072 




UOUTBF 




000066 


• INT 


USFTST 




000463 


INT 


USRJDA 




000441 


EXT 


USRMOD 




010000 


INT 


USRREL 




000455 


FXT 


USTATO 




000452 


INT 


USTATS 




000455 


INT 


USTATZ 




000470 


INT 


UUO 




000014 


INT 


UXIT 




000472' 


EXT 


WAITl 




000463 


FXT 


WSYNC 




000425' 


FXT 
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